10 RESTORE:READA:BO=PEEK(66)*256+PEEK(65)+3:DV=PEEK(186):IFDV<8THENDV=8
20 CE=BO+3:BL=BO+6:CO=BO+9:SW=BO+12:C2=BO+15:DY=BO+18:SYSBO:POKE53272,23
50 SYSCE,16,"[197][160][216][160][208][160][193][160][206][160][196][160][197][160][210]   [213] [212] [201] [204] [201] [212] [217]":SYSCE,18,"[194]Y [203]EN [210]OBINSON
70 [143] SYSCE,19,"(LEN) 1997 BY MID$&ASC (null)UBLISHING
80 REMSYSCE,20,"[212]HIS [208]ROGRAM [201]SN'T [208]UBLIC [196]OMAIN
100 [158]BL,"EXPANDER.TB",DV,9[172]4096
105 [158]BL,"EXPAND.CALC",DV,5[172]4096[170]4[172]256
109 [158]BL,"EXPANDER.O",DV,5[172]4096
110 [158]BL,"F.BRICK",DV,8[172]4096
120 [158]BL,"F.FONT1",DV,6[172]4096[170]8[172]256
5000 [158]DY,"EXP2",DV
6000 [131]0